home *** CD-ROM | disk | FTP | other *** search
/ Click - International Series 1 / Click Jigsaw Puzzles: Ken Duncan.iso / mac / puzzles / Stonehenge.dxr / 00257_closeMessage.ls < prev    next >
Encoding:
Text File  |  2002-11-11  |  1.1 KB  |  43 lines
  1. property spriteNum
  2.  
  3. on new me, spriteRef
  4.   if the paramCount = 1 then
  5.     nothing()
  6.   else
  7.     if the paramCount = 2 then
  8.       spriteNum = spriteRef.spriteNum
  9.     end if
  10.   end if
  11.   return me
  12. end
  13.  
  14. on mouseDown me
  15.   set the member of sprite the spriteNum of me to member(word 1 of the name of the member of sprite the spriteNum of me && "click")
  16.   updateStage()
  17. end
  18.  
  19. on mouseUp me
  20.   if (the member of sprite me.spriteNum).name = "close click" then
  21.     set the member of sprite the spriteNum of me to "close"
  22.     updateStage()
  23.     clearDialog()
  24.   end if
  25. end
  26.  
  27. on mouseUpOutSide me
  28.   set the member of sprite the spriteNum of me to word 1 of the name of the member of sprite the spriteNum of me
  29.   updateStage()
  30. end
  31.  
  32. on mouseEnter me
  33.   if the stillDown and (the clickOn = me.spriteNum) then
  34.     set the member of sprite the spriteNum of me to word 1 of the name of the member of sprite the spriteNum of me && "click"
  35.     updateStage()
  36.   end if
  37. end
  38.  
  39. on mouseLeave me
  40.   set the member of sprite the spriteNum of me to word 1 of the name of the member of sprite the spriteNum of me
  41.   updateStage()
  42. end
  43.